/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / VirtualUs201 / Virtual User 2.0.1 / Examples / Example Libraries / DataUtils.vulib

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 44 61 74 61 55 74 | 69 6c 73 2e 76 75 6c 69 |..DataUt|ils.vuli|
|00000010| 62 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |b.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 36 00 | 00 10 e0 a7 4e 6b 80 a7 |......6.|....Nk..|
|00000060| 4e 6b 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Nk......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c7 15 00 00 |........|........|
|00000080| 23 0d 23 09 46 69 6c 65 | 3a 09 09 44 61 74 61 55 |#.#.File|:..DataU|
|00000090| 74 69 6c 73 2e 76 75 6c | 69 62 0d 23 0d 23 09 43 |tils.vul|ib.#.#.C|
|000000a0| 6f 6e 74 61 69 6e 73 3a | 09 43 6f 6e 74 61 69 6e |ontains:|.Contain|
|000000b0| 73 20 71 75 69 63 6b 20 | 74 61 73 6b 73 20 66 6f |s quick |tasks fo|
|000000c0| 72 20 77 6f 72 6b 69 6e | 67 20 77 69 74 68 20 76 |r workin|g with v|
|000000d0| 61 72 69 6f 75 73 20 64 | 61 74 61 2e 20 55 73 65 |arious d|ata. Use|
|000000e0| 20 4d 61 72 6b 20 6d 65 | 6e 75 20 74 6f 0d 23 09 | Mark me|nu to.#.|
|000000f0| 09 09 09 72 65 61 63 68 | 20 74 68 65 20 64 65 73 |...reach| the des|
|00000100| 69 72 65 64 20 74 61 73 | 6b 2e 20 54 68 65 20 74 |ired tas|k. The t|
|00000110| 61 73 6b 73 20 61 72 65 | 20 63 6f 6d 6d 65 6e 74 |asks are| comment|
|00000120| 65 64 20 6f 6e 20 77 68 | 61 74 20 74 68 65 79 20 |ed on wh|at they |
|00000130| 64 6f 2e 0d 23 0d 23 09 | 57 72 69 74 74 65 6e 20 |do..#.#.|Written |
|00000140| 62 79 3a 09 44 20 47 61 | 78 69 6f 6c 61 0d 23 0d |by:.D Ga|xiola.#.|
|00000150| 23 09 43 6f 70 79 72 69 | 67 68 74 3a 09 a9 20 31 |#.Copyri|ght:.. 1|
|00000160| 39 39 32 20 62 79 20 41 | 70 70 6c 65 20 43 6f 6d |992 by A|pple Com|
|00000170| 70 75 74 65 72 2c 20 49 | 6e 63 2e 2c 20 61 6c 6c |puter, I|nc., all|
|00000180| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|00000190| 2e 0d 23 0d 23 09 43 68 | 61 6e 67 65 20 48 69 73 |..#.#.Ch|ange His|
|000001a0| 74 6f 72 79 20 28 6d 6f | 73 74 20 72 65 63 65 6e |tory (mo|st recen|
|000001b0| 74 20 66 69 72 73 74 29 | 3a 0d 23 0d 23 09 09 09 |t first)|:.#.#...|
|000001c0| 09 20 20 38 2f 34 2f 39 | 32 09 44 47 47 09 09 09 |.  8/4/9|2.DGG...|
|000001d0| 72 65 6e 61 6d 65 64 20 | 43 61 72 20 61 6e 64 20 |renamed |Car and |
|000001e0| 43 64 72 20 74 6f 20 46 | 69 72 73 74 20 61 6e 64 |Cdr to F|irst and|
|000001f0| 20 52 65 73 74 0d 23 09 | 09 09 09 20 37 2f 32 34 | Rest.#.|... 7/24|
|00000200| 2f 39 32 09 44 47 47 09 | 09 09 61 64 64 65 64 20 |/92.DGG.|..added |
|00000210| 50 68 69 6c 20 54 68 6f | 6d 70 73 6f 6e 27 73 20 |Phil Tho|mpson's |
|00000220| 46 75 73 65 42 69 67 4e | 75 6d 62 65 72 73 20 74 |FuseBigN|umbers t|
|00000230| 61 73 6b 0d 23 09 09 09 | 09 09 09 09 09 09 09 61 |ask.#...|.......a|
|00000240| 64 64 65 64 20 49 73 53 | 75 62 73 74 72 69 6e 67 |dded IsS|ubstring|
|00000250| 20 74 61 73 6b 0d 23 09 | 09 20 09 09 20 36 2f 31 | task.#.|. .. 6/1|
|00000260| 37 2f 39 32 09 44 47 47 | 09 09 09 63 72 65 61 74 |7/92.DGG|...creat|
|00000270| 69 6f 6e 20 0d 23 0d 23 | 09 54 6f 20 44 6f 3a 0d |ion .#.#|.To Do:.|
|00000280| 23 0d 0d 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |#..(****|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 2a 20 54 61 73 6b 20 |********|.* Task |
|000002e0| 41 62 73 28 6e 75 6d 62 | 65 72 29 0d 2a 09 57 69 |Abs(numb|er).*.Wi|
|000002f0| 6c 6c 20 72 65 74 75 72 | 6e 20 74 68 65 20 61 62 |ll retur|n the ab|
|00000300| 73 6f 6c 75 74 65 20 76 | 61 6c 75 65 20 6f 66 20 |solute v|alue of |
|00000310| 61 20 67 69 76 65 6e 20 | 69 6e 74 65 67 65 72 2e |a given |integer.|
|00000320| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 29 0d 74 | 61 73 6b 20 41 62 73 28 |*****).t|ask Abs(|
|00000380| 6e 75 6d 62 65 72 20 3a | 3d 20 30 29 0d 62 65 67 |number :|= 0).beg|
|00000390| 69 6e 0d 09 69 66 20 28 | 6e 75 6d 62 65 72 20 3c |in..if (|number <|
|000003a0| 20 30 29 0d 09 09 72 65 | 74 75 72 6e 20 2d 6e 75 | 0)...re|turn -nu|
|000003b0| 6d 62 65 72 3b 0d 09 65 | 6c 73 65 20 0d 09 09 72 |mber;..e|lse ...r|
|000003c0| 65 74 75 72 6e 20 6e 75 | 6d 62 65 72 3b 0d 65 6e |eturn nu|mber;.en|
|000003d0| 64 3b 0d 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |d;..(***|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 20 54 61 73 6b |********|*.* Task|
|00000430| 20 43 6f 6e 63 61 74 53 | 74 72 69 6e 67 73 28 73 | ConcatS|trings(s|
|00000440| 74 72 69 6e 67 4c 69 73 | 74 29 0d 2a 09 57 69 6c |tringLis|t).*.Wil|
|00000450| 6c 20 74 61 6b 65 20 61 | 20 6c 69 73 74 20 6f 66 |l take a| list of|
|00000460| 20 73 74 72 69 6e 67 73 | 20 61 6e 64 20 72 65 74 | strings| and ret|
|00000470| 75 72 6e 20 61 20 73 69 | 6e 67 6c 65 20 73 74 72 |urn a si|ngle str|
|00000480| 69 6e 67 20 77 68 69 63 | 68 20 69 73 20 74 68 65 |ing whic|h is the|
|00000490| 0d 2a 09 63 6f 6e 63 61 | 74 69 6e 61 74 69 6f 6e |.*.conca|tination|
|000004a0| 20 6f 66 20 74 68 65 20 | 6f 74 68 65 72 20 73 74 | of the |other st|
|000004b0| 72 69 6e 67 73 2e 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rings..*|********|
|000004c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 74 61 73 |********|***).tas|
|00000510| 6b 20 43 6f 6e 63 61 74 | 53 74 72 69 6e 67 73 28 |k Concat|Strings(|
|00000520| 73 74 72 69 6e 67 4c 69 | 73 74 20 3a 3d 20 7b 7d |stringLi|st := {}|
|00000530| 29 0d 62 65 67 69 6e 0d | 09 6e 65 77 53 74 72 69 |).begin.|.newStri|
|00000540| 6e 67 20 3a 3d 20 22 22 | 3b 0d 09 6e 75 6d 62 65 |ng := ""|;..numbe|
|00000550| 72 53 74 72 69 6e 67 73 | 20 3a 3d 20 63 61 72 64 |rStrings| := card|
|00000560| 20 73 74 72 69 6e 67 4c | 69 73 74 3b 0d 09 66 6f | stringL|ist;..fo|
|00000570| 72 20 69 20 3a 3d 20 31 | 20 74 6f 20 6e 75 6d 62 |r i := 1| to numb|
|00000580| 65 72 53 74 72 69 6e 67 | 73 0d 09 09 6e 65 77 53 |erString|s...newS|
|00000590| 74 72 69 6e 67 20 3a 3d | 20 6e 65 77 53 74 72 69 |tring :=| newStri|
|000005a0| 6e 67 20 2b 20 73 74 72 | 69 6e 67 4c 69 73 74 5b |ng + str|ingList[|
|000005b0| 69 5d 3b 0d 09 72 65 74 | 75 72 6e 20 6e 65 77 53 |i];..ret|urn newS|
|000005c0| 74 72 69 6e 67 3b 0d 65 | 6e 64 3b 0d 0d 28 2a 2a |tring;.e|nd;..(**|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000620| 2a 2a 0d 2a 20 54 61 73 | 6b 20 41 64 64 54 6f 4c |**.* Tas|k AddToL|
|00000630| 69 73 74 28 74 68 65 45 | 6c 65 6d 65 6e 74 2c 20 |ist(theE|lement, |
|00000640| 74 68 65 4c 69 73 74 2c | 20 74 6f 46 72 6f 6e 74 |theList,| toFront|
|00000650| 29 0d 2a 09 57 69 6c 6c | 20 61 64 64 20 61 6e 20 |).*.Will| add an |
|00000660| 65 6c 65 6d 65 6e 74 20 | 74 6f 20 74 68 65 20 62 |element |to the b|
|00000670| 65 67 69 6e 6e 69 6e 67 | 20 6f 72 20 65 6e 64 20 |eginning| or end |
|00000680| 6f 66 20 61 20 67 69 76 | 65 6e 20 6c 69 73 74 2c |of a giv|en list,|
|00000690| 20 72 65 74 75 72 6e 69 | 6e 67 20 74 68 65 20 0d | returni|ng the .|
|000006a0| 2a 09 72 65 73 75 6c 74 | 61 6e 74 20 6c 69 73 74 |*.result|ant list|
|000006b0| 2e 0d 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..******|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000700| 2a 2a 2a 2a 2a 2a 29 0d | 74 61 73 6b 20 41 64 64 |******).|task Add|
|00000710| 54 6f 4c 69 73 74 28 74 | 68 65 45 6c 65 6d 65 6e |ToList(t|heElemen|
|00000720| 74 20 3a 3d 20 22 22 2c | 20 74 68 65 4c 69 73 74 |t := "",| theList|
|00000730| 20 3a 3d 20 7b 7d 2c 20 | 74 6f 46 72 6f 6e 74 20 | := {}, |toFront |
|00000740| 3a 3d 20 66 61 6c 73 65 | 29 0d 62 65 67 69 6e 0d |:= false|).begin.|
|00000750| 09 69 66 20 74 6f 46 72 | 6f 6e 74 0d 09 09 72 65 |.if toFr|ont...re|
|00000760| 74 75 72 6e 20 69 6e 73 | 65 72 74 28 74 68 65 45 |turn ins|ert(theE|
|00000770| 6c 65 6d 65 6e 74 2c 20 | 31 2c 20 74 68 65 4c 69 |lement, |1, theLi|
|00000780| 73 74 29 3b 0d 09 65 6c | 73 65 0d 09 09 72 65 74 |st);..el|se...ret|
|00000790| 75 72 6e 20 69 6e 73 65 | 72 74 28 74 68 65 45 6c |urn inse|rt(theEl|
|000007a0| 65 6d 65 6e 74 2c 20 28 | 28 63 61 72 64 20 74 68 |ement, (|(card th|
|000007b0| 65 4c 69 73 74 29 20 2b | 20 31 29 2c 20 74 68 65 |eList) +| 1), the|
|000007c0| 4c 69 73 74 29 3b 0d 65 | 6e 64 3b 0d 0d 28 2a 2a |List);.e|nd;..(**|
|000007d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 0d 2a 20 54 61 73 | 6b 20 46 69 72 73 74 28 |**.* Tas|k First(|
|00000830| 74 68 65 4c 69 73 74 29 | 0d 2a 09 54 68 69 73 20 |theList)|.*.This |
|00000840| 69 73 20 74 68 65 20 65 | 71 75 69 76 61 6c 65 6e |is the e|quivalen|
|00000850| 74 20 6f 66 20 74 68 65 | 20 63 61 72 20 6f 70 65 |t of the| car ope|
|00000860| 72 61 74 6f 72 20 66 72 | 6f 6d 20 74 68 65 20 53 |rator fr|om the S|
|00000870| 63 68 65 6d 65 20 6c 61 | 6e 67 75 61 67 65 2e 20 |cheme la|nguage. |
|00000880| 20 49 74 20 77 69 6c 6c | 0d 2a 09 72 65 74 75 72 | It will|.*.retur|
|00000890| 6e 20 74 68 65 20 66 69 | 72 73 74 20 65 6c 65 6d |n the fi|rst elem|
|000008a0| 65 6e 74 20 6f 66 20 61 | 20 6c 69 73 74 2e 0d 2a |ent of a| list..*|
|000008b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 29 0d 74 61 73 | 6b 20 46 69 72 73 74 28 |***).tas|k First(|
|00000910| 74 68 65 4c 69 73 74 29 | 0d 62 65 67 69 6e 0d 09 |theList)|.begin..|
|00000920| 69 66 20 28 28 63 61 72 | 64 20 74 68 65 4c 69 73 |if ((car|d theLis|
|00000930| 74 29 20 3e 20 30 29 0d | 09 09 72 65 74 75 72 6e |t) > 0).|..return|
|00000940| 20 74 68 65 4c 69 73 74 | 5b 31 5d 3b 0d 09 65 6c | theList|[1];..el|
|00000950| 73 65 0d 09 09 72 65 74 | 75 72 6e 20 75 6e 64 65 |se...ret|urn unde|
|00000960| 66 69 6e 65 64 3b 0d 65 | 6e 64 3b 0d 0d 28 2a 2a |fined;.e|nd;..(**|
|00000970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009c0| 2a 2a 0d 2a 20 54 61 73 | 6b 20 52 65 73 74 28 74 |**.* Tas|k Rest(t|
|000009d0| 68 65 4c 69 73 74 29 0d | 2a 09 54 68 69 73 20 69 |heList).|*.This i|
|000009e0| 73 20 74 68 65 20 65 71 | 75 69 76 61 6c 65 6e 74 |s the eq|uivalent|
|000009f0| 20 6f 66 20 74 68 65 20 | 63 64 72 20 6f 70 65 72 | of the |cdr oper|
|00000a00| 61 74 6f 72 20 66 72 6f | 6d 20 74 68 65 20 53 63 |ator fro|m the Sc|
|00000a10| 68 65 6d 65 20 6c 61 6e | 67 75 61 67 65 2e 20 20 |heme lan|guage.  |
|00000a20| 49 74 20 77 69 6c 6c 0d | 2a 09 72 65 74 75 72 6e |It will.|*.return|
|00000a30| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 74 | a list |of all t|
|00000a40| 68 65 20 65 6c 65 6d 65 | 6e 74 73 20 69 6e 20 61 |he eleme|nts in a|
|00000a50| 20 67 69 76 65 6e 20 6c | 69 73 74 2c 20 65 78 63 | given l|ist, exc|
|00000a60| 65 70 74 20 74 68 65 20 | 66 69 72 73 74 2e 0d 2a |ept the |first..*|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 29 0d 74 61 73 | 6b 20 52 65 73 74 28 74 |***).tas|k Rest(t|
|00000ad0| 68 65 4c 69 73 74 29 0d | 62 65 67 69 6e 0d 09 69 |heList).|begin..i|
|00000ae0| 66 20 28 28 63 61 72 64 | 20 74 68 65 4c 69 73 74 |f ((card| theList|
|00000af0| 29 20 3e 20 31 29 0d 09 | 09 72 65 74 75 72 6e 20 |) > 1)..|.return |
|00000b00| 72 65 6d 6f 76 65 28 31 | 2c 20 74 68 65 4c 69 73 |remove(1|, theLis|
|00000b10| 74 29 3b 0d 09 65 6c 73 | 65 0d 09 09 72 65 74 75 |t);..els|e...retu|
|00000b20| 72 6e 20 75 6e 64 65 66 | 69 6e 65 64 3b 0d 65 6e |rn undef|ined;.en|
|00000b30| 64 3b 0d 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |d;..(***|********|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 20 54 61 73 6b |********|*.* Task|
|00000b90| 20 49 73 53 75 62 73 74 | 72 69 6e 67 28 74 68 65 | IsSubst|ring(the|
|00000ba0| 53 75 62 53 74 72 69 6e | 67 2c 20 74 68 65 53 74 |SubStrin|g, theSt|
|00000bb0| 72 69 6e 67 29 0d 2a 09 | 47 69 76 65 6e 20 61 20 |ring).*.|Given a |
|00000bc0| 73 74 72 69 6e 67 20 61 | 6e 64 20 61 20 73 75 62 |string a|nd a sub|
|00000bd0| 73 74 72 69 6e 67 2c 20 | 74 68 69 73 20 74 61 73 |string, |this tas|
|00000be0| 6b 20 77 69 6c 6c 20 63 | 68 65 63 6b 20 74 6f 20 |k will c|heck to |
|00000bf0| 73 65 65 20 69 66 20 74 | 68 65 20 73 75 62 73 74 |see if t|he subst|
|00000c00| 72 69 6e 67 0d 2a 09 65 | 78 69 73 74 73 20 77 69 |ring.*.e|xists wi|
|00000c10| 74 68 69 6e 20 74 68 65 | 20 6d 61 69 6e 20 73 74 |thin the| main st|
|00000c20| 72 69 6e 67 2e 20 49 66 | 20 69 74 20 64 6f 65 73 |ring. If| it does|
|00000c30| 2c 20 69 74 20 77 69 6c | 6c 20 72 65 74 75 72 6e |, it wil|l return|
|00000c40| 20 74 68 65 20 73 74 61 | 72 74 69 6e 67 20 6c 6f | the sta|rting lo|
|00000c50| 63 61 74 69 6f 6e 0d 2a | 09 77 69 74 68 69 6e 20 |cation.*|.within |
|00000c60| 74 68 65 20 6d 61 69 6e | 20 73 74 72 69 6e 67 2c |the main| string,|
|00000c70| 20 6f 74 68 65 72 77 69 | 73 65 20 69 74 20 77 69 | otherwi|se it wi|
|00000c80| 6c 6c 20 72 65 74 75 72 | 6e 20 66 61 6c 73 65 2e |ll retur|n false.|
|00000c90| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ce0| 2a 2a 2a 2a 2a 29 0d 74 | 61 73 6b 20 49 73 53 75 |*****).t|ask IsSu|
|00000cf0| 62 73 74 72 69 6e 67 28 | 74 68 65 53 75 62 53 74 |bstring(|theSubSt|
|00000d00| 72 69 6e 67 20 3a 3d 20 | 22 22 2c 20 74 68 65 53 |ring := |"", theS|
|00000d10| 74 72 69 6e 67 20 3a 3d | 20 22 22 29 0d 62 65 67 |tring :=| "").beg|
|00000d20| 69 6e 0d 09 73 75 62 4c | 65 6e 67 74 68 20 3a 3d |in..subL|ength :=|
|00000d30| 20 63 61 72 64 20 74 68 | 65 53 75 62 53 74 72 69 | card th|eSubStri|
|00000d40| 6e 67 3b 0d 09 6d 61 69 | 6e 4c 65 6e 67 74 68 20 |ng;..mai|nLength |
|00000d50| 3a 3d 20 63 61 72 64 20 | 74 68 65 53 74 72 69 6e |:= card |theStrin|
|00000d60| 67 3b 0d 09 69 66 20 28 | 73 75 62 4c 65 6e 67 74 |g;..if (|subLengt|
|00000d70| 68 20 3e 20 6d 61 69 6e | 4c 65 6e 67 74 68 29 0d |h > main|Length).|
|00000d80| 09 09 72 65 74 75 72 6e | 20 66 61 6c 73 65 3b 0d |..return| false;.|
|00000d90| 09 65 6c 73 65 20 69 66 | 20 28 73 75 62 4c 65 6e |.else if| (subLen|
|00000da0| 67 74 68 20 3d 20 6d 61 | 69 6e 4c 65 6e 67 74 68 |gth = ma|inLength|
|00000db0| 29 0d 09 09 69 66 20 28 | 74 68 65 53 75 62 53 74 |)...if (|theSubSt|
|00000dc0| 72 69 6e 67 20 3d 20 74 | 68 65 53 74 72 69 6e 67 |ring = t|heString|
|00000dd0| 29 0d 09 09 09 72 65 74 | 75 72 6e 20 31 3b 0d 09 |)....ret|urn 1;..|
|00000de0| 09 65 6c 73 65 0d 09 09 | 09 72 65 74 75 72 6e 20 |.else...|.return |
|00000df0| 66 61 6c 73 65 3b 0d 09 | 65 6c 73 65 0d 09 09 66 |false;..|else...f|
|00000e00| 6f 72 20 6d 61 69 6e 43 | 6f 75 6e 74 65 72 20 3a |or mainC|ounter :|
|00000e10| 3d 20 31 20 74 6f 20 28 | 6d 61 69 6e 4c 65 6e 67 |= 1 to (|mainLeng|
|00000e20| 74 68 20 2d 20 28 73 75 | 62 4c 65 6e 67 74 68 20 |th - (su|bLength |
|00000e30| 2d 20 31 29 29 0d 09 09 | 62 65 67 69 6e 0d 09 09 |- 1))...|begin...|
|00000e40| 09 73 75 62 43 6f 75 6e | 74 65 72 20 3a 3d 20 31 |.subCoun|ter := 1|
|00000e50| 3b 0d 09 09 09 74 65 6d | 70 43 6f 75 6e 74 65 72 |;....tem|pCounter|
|00000e60| 20 3a 3d 20 6d 61 69 6e | 43 6f 75 6e 74 65 72 3b | := main|Counter;|
|00000e70| 0d 09 09 09 69 66 20 74 | 68 65 53 74 72 69 6e 67 |....if t|heString|
|00000e80| 5b 74 65 6d 70 43 6f 75 | 6e 74 65 72 5d 20 3d 20 |[tempCou|nter] = |
|00000e90| 74 68 65 53 75 62 53 74 | 72 69 6e 67 5b 73 75 62 |theSubSt|ring[sub|
|00000ea0| 43 6f 75 6e 74 65 72 5d | 0d 09 09 09 62 65 67 69 |Counter]|....begi|
|00000eb0| 6e 0d 09 09 09 09 77 68 | 69 6c 65 20 74 68 65 53 |n.....wh|ile theS|
|00000ec0| 74 72 69 6e 67 5b 74 65 | 6d 70 43 6f 75 6e 74 65 |tring[te|mpCounte|
|00000ed0| 72 5d 20 3d 20 74 68 65 | 53 75 62 53 74 72 69 6e |r] = the|SubStrin|
|00000ee0| 67 5b 73 75 62 43 6f 75 | 6e 74 65 72 5d 0d 09 09 |g[subCou|nter]...|
|00000ef0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 73 75 62 |..begin.|.....sub|
|00000f00| 43 6f 75 6e 74 65 72 20 | 3a 3d 20 73 75 62 43 6f |Counter |:= subCo|
|00000f10| 75 6e 74 65 72 20 2b 20 | 31 3b 0d 09 09 09 09 09 |unter + |1;......|
|00000f20| 74 65 6d 70 43 6f 75 6e | 74 65 72 20 3a 3d 20 74 |tempCoun|ter := t|
|00000f30| 65 6d 70 43 6f 75 6e 74 | 65 72 20 2b 20 31 3b 0d |empCount|er + 1;.|
|00000f40| 09 09 09 09 65 6e 64 3b | 0d 09 09 09 09 69 66 20 |....end;|.....if |
|00000f50| 28 73 75 62 43 6f 75 6e | 74 65 72 20 3d 20 73 75 |(subCoun|ter = su|
|00000f60| 62 4c 65 6e 67 74 68 20 | 2b 20 31 29 0d 09 09 09 |bLength |+ 1)....|
|00000f70| 09 09 72 65 74 75 72 6e | 20 6d 61 69 6e 43 6f 75 |..return| mainCou|
|00000f80| 6e 74 65 72 3b 0d 09 09 | 09 65 6e 64 3b 0d 09 09 |nter;...|.end;...|
|00000f90| 65 6e 64 3b 0d 09 72 65 | 74 75 72 6e 20 66 61 6c |end;..re|turn fal|
|00000fa0| 73 65 3b 0d 65 6e 64 3b | 0d 0d 28 2a 2a 2a 2a 2a |se;.end;|..(*****|
|00000fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00001000| 2a 20 54 61 73 6b 20 50 | 6f 70 53 74 61 63 6b 28 |* Task P|opStack(|
|00001010| 74 68 65 53 74 61 63 6b | 29 0d 2a 09 47 69 76 65 |theStack|).*.Give|
|00001020| 6e 20 61 20 73 74 61 63 | 6b 2c 20 74 68 69 73 20 |n a stac|k, this |
|00001030| 74 61 73 6b 20 77 69 6c | 6c 20 72 65 74 75 72 6e |task wil|l return|
|00001040| 20 61 20 6c 69 73 74 20 | 6f 66 20 74 77 6f 20 65 | a list |of two e|
|00001050| 6c 65 6d 65 6e 74 73 2c | 20 74 68 65 20 6e 65 77 |lements,| the new|
|00001060| 6c 79 20 70 6f 70 70 65 | 64 20 0d 2a 09 65 6c 65 |ly poppe|d .*.ele|
|00001070| 6d 65 6e 74 20 61 6e 64 | 20 74 68 65 20 6e 65 77 |ment and| the new|
|00001080| 20 73 74 61 63 6b 2e 20 | 20 53 69 6e 63 65 20 22 | stack. | Since "|
|00001090| 74 68 65 53 74 61 63 6b | 22 20 69 73 20 6e 65 76 |theStack|" is nev|
|000010a0| 65 72 20 63 68 61 6e 67 | 65 64 20 62 79 20 50 6f |er chang|ed by Po|
|000010b0| 70 53 74 61 63 6b 2c 20 | 77 65 20 0d 2a 09 63 6f |pStack, |we .*.co|
|000010c0| 75 6c 64 20 75 73 65 20 | 69 74 20 69 6e 20 74 68 |uld use |it in th|
|000010d0| 69 73 20 6d 61 6e 6e 65 | 72 3a 0d 2a 09 09 6d 79 |is manne|r:.*..my|
|000010e0| 44 61 74 61 20 3a 3d 20 | 50 6f 70 53 74 61 63 6b |Data := |PopStack|
|000010f0| 28 6d 79 53 74 61 63 6b | 29 5b 31 5d 3b 0d 2a 09 |(myStack|)[1];.*.|
|00001100| 09 6d 79 53 74 61 63 6b | 20 3a 3d 20 50 6f 70 53 |.myStack| := PopS|
|00001110| 74 61 63 6b 28 6d 79 53 | 74 61 63 6b 29 5b 32 5d |tack(myS|tack)[2]|
|00001120| 3b 0d 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;.******|********|
|00001130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001170| 2a 2a 2a 2a 2a 2a 29 0d | 74 61 73 6b 20 50 6f 70 |******).|task Pop|
|00001180| 53 74 61 63 6b 28 74 68 | 65 53 74 61 63 6b 20 3a |Stack(th|eStack :|
|00001190| 3d 20 7b 7d 29 0d 62 65 | 67 69 6e 0d 09 74 77 6f |= {}).be|gin..two|
|000011a0| 49 74 65 6d 4c 69 73 74 | 20 3a 3d 20 7b 7d 3b 0d |ItemList| := {};.|
|000011b0| 09 74 77 6f 49 74 65 6d | 4c 69 73 74 20 3a 3d 20 |.twoItem|List := |
|000011c0| 41 64 64 54 6f 4c 69 73 | 74 28 46 69 72 73 74 28 |AddToLis|t(First(|
|000011d0| 74 68 65 53 74 61 63 6b | 29 2c 20 74 77 6f 49 74 |theStack|), twoIt|
|000011e0| 65 6d 4c 69 73 74 29 3b | 0d 09 74 77 6f 49 74 65 |emList);|..twoIte|
|000011f0| 6d 4c 69 73 74 20 3a 3d | 20 41 64 64 54 6f 4c 69 |mList :=| AddToLi|
|00001200| 73 74 28 52 65 73 74 28 | 74 68 65 53 74 61 63 6b |st(Rest(|theStack|
|00001210| 29 2c 20 74 77 6f 49 74 | 65 6d 4c 69 73 74 29 3b |), twoIt|emList);|
|00001220| 0d 09 72 65 74 75 72 6e | 20 74 77 6f 49 74 65 6d |..return| twoItem|
|00001230| 4c 69 73 74 3b 0d 65 6e | 64 3b 0d 0d 28 2a 2a 2a |List;.en|d;..(***|
|00001240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001290| 2a 0d 2a 20 54 61 73 6b | 20 50 75 73 68 53 74 61 |*.* Task| PushSta|
|000012a0| 63 6b 28 74 68 65 45 6c | 65 6d 65 6e 74 2c 20 74 |ck(theEl|ement, t|
|000012b0| 68 65 53 74 61 63 6b 29 | 0d 2a 09 47 69 76 65 6e |heStack)|.*.Given|
|000012c0| 20 61 6e 20 65 6c 65 6d | 65 6e 74 20 61 6e 64 20 | an elem|ent and |
|000012d0| 61 20 22 73 74 61 63 6b | 22 20 74 68 65 20 65 6c |a "stack|" the el|
|000012e0| 65 6d 65 6e 74 20 77 69 | 6c 6c 20 62 65 20 22 70 |ement wi|ll be "p|
|000012f0| 75 73 68 65 64 22 20 6f | 6e 74 6f 20 74 68 65 20 |ushed" o|nto the |
|00001300| 73 74 61 63 6b 2e 0d 2a | 09 54 68 65 20 6e 65 77 |stack..*|.The new|
|00001310| 20 73 74 61 63 6b 20 69 | 73 20 72 65 74 75 72 6e | stack i|s return|
|00001320| 65 64 2e 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ed..****|********|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0d 74 61 73 6b 20 50 |********|).task P|
|00001380| 75 73 68 53 74 61 63 6b | 28 74 68 65 45 6c 65 6d |ushStack|(theElem|
|00001390| 65 6e 74 20 3a 3d 20 22 | 22 2c 20 74 68 65 53 74 |ent := "|", theSt|
|000013a0| 61 63 6b 20 3a 3d 20 7b | 7d 29 0d 62 65 67 69 6e |ack := {|}).begin|
|000013b0| 0d 09 72 65 74 75 72 6e | 20 41 64 64 54 6f 4c 69 |..return| AddToLi|
|000013c0| 73 74 28 74 68 65 45 6c | 65 6d 65 6e 74 2c 20 74 |st(theEl|ement, t|
|000013d0| 68 65 53 74 61 63 6b 2c | 20 74 72 75 65 29 3b 0d |heStack,| true);.|
|000013e0| 65 6e 64 3b 0d 0d 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |end;..(*|********|
|000013f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 2a 20 54 61 |********|***.* Ta|
|00001440| 73 6b 20 4d 61 6b 65 41 | 73 73 6f 63 28 6f 62 6a |sk MakeA|ssoc(obj|
|00001450| 65 63 74 4c 69 73 74 2c | 20 64 61 74 61 4c 69 73 |ectList,| dataLis|
|00001460| 74 29 0d 2a 09 47 69 76 | 65 6e 20 74 77 6f 20 6c |t).*.Giv|en two l|
|00001470| 69 73 74 73 20 6f 66 20 | 65 71 75 61 6c 20 73 69 |ists of |equal si|
|00001480| 7a 65 2c 20 74 68 69 73 | 20 77 69 6c 6c 20 62 75 |ze, this| will bu|
|00001490| 69 6c 64 20 61 20 6c 69 | 73 74 20 6f 66 20 61 73 |ild a li|st of as|
|000014a0| 73 6f 63 69 61 74 69 6f | 6e 73 20 62 65 74 77 65 |sociatio|ns betwe|
|000014b0| 65 6e 0d 2a 09 74 68 65 | 20 74 77 6f 2e 0d 2a 2a |en.*.the| two..**|
|000014c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001510| 2a 2a 29 0d 74 61 73 6b | 20 4d 61 6b 65 41 73 73 |**).task| MakeAss|
|00001520| 6f 63 28 6f 62 6a 65 63 | 74 4c 69 73 74 20 3a 3d |oc(objec|tList :=|
|00001530| 20 7b 7d 2c 20 64 61 74 | 61 4c 69 73 74 20 3a 3d | {}, dat|aList :=|
|00001540| 20 7b 7d 29 0d 62 65 67 | 69 6e 0d 09 69 66 20 28 | {}).beg|in..if (|
|00001550| 28 63 61 72 64 20 6f 62 | 6a 65 63 74 4c 69 73 74 |(card ob|jectList|
|00001560| 29 20 3d 20 28 63 61 72 | 64 20 64 61 74 61 4c 69 |) = (car|d dataLi|
|00001570| 73 74 29 29 0d 09 62 65 | 67 69 6e 0d 09 09 6c 69 |st))..be|gin...li|
|00001580| 73 74 53 69 7a 65 20 3a | 3d 20 63 61 72 64 20 6f |stSize :|= card o|
|00001590| 62 6a 65 63 74 4c 69 73 | 74 3b 0d 09 09 61 73 73 |bjectLis|t;...ass|
|000015a0| 6f 63 4c 69 73 74 20 3a | 3d 20 7b 7d 3b 0d 09 09 |ocList :|= {};...|
|000015b0| 66 6f 72 20 69 20 3a 3d | 20 31 20 74 6f 20 6c 69 |for i :=| 1 to li|
|000015c0| 73 74 53 69 7a 65 0d 09 | 09 09 61 73 73 6f 63 4c |stSize..|..assocL|
|000015d0| 69 73 74 20 3a 3d 20 41 | 64 64 54 6f 4c 69 73 74 |ist := A|ddToList|
|000015e0| 28 7b 6f 62 6a 65 63 74 | 6c 69 73 74 5b 69 5d 2c |({object|list[i],|
|000015f0| 20 64 61 74 61 4c 69 73 | 74 5b 69 5d 7d 2c 20 61 | dataLis|t[i]}, a|
|00001600| 73 73 6f 63 4c 69 73 74 | 29 3b 0d 09 09 72 65 74 |ssocList|);...ret|
|00001610| 75 72 6e 20 61 73 73 6f | 63 4c 69 73 74 3b 0d 09 |urn asso|cList;..|
|00001620| 65 6e 64 3b 0d 09 65 6c | 73 65 0d 09 09 72 65 74 |end;..el|se...ret|
|00001630| 75 72 6e 20 75 6e 64 65 | 66 69 6e 65 64 3b 0d 65 |urn unde|fined;.e|
|00001640| 6e 64 3b 0d 0d 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |nd;..(**|********|
|00001650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 2a 20 54 61 73 |********|**.* Tas|
|000016a0| 6b 20 53 6f 72 74 4c 69 | 73 74 28 74 68 65 4c 69 |k SortLi|st(theLi|
|000016b0| 73 74 29 0d 2a 09 53 69 | 6d 70 6c 65 20 62 75 62 |st).*.Si|mple bub|
|000016c0| 62 6c 65 20 73 6f 72 74 | 20 72 6f 75 74 69 6e 65 |ble sort| routine|
|000016d0| 20 66 6f 72 20 73 6f 72 | 74 69 6e 67 20 6c 69 73 | for sor|ting lis|
|000016e0| 74 73 2e 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ts..****|********|
|000016f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0d 74 61 73 6b 20 53 |********|).task S|
|00001740| 6f 72 74 4c 69 73 74 28 | 74 68 65 4c 69 73 74 20 |ortList(|theList |
|00001750| 3a 3d 20 7b 7d 29 0d 62 | 65 67 69 6e 0d 09 6e 6f |:= {}).b|egin..no|
|00001760| 43 68 61 6e 67 65 73 20 | 3a 3d 20 66 61 6c 73 65 |Changes |:= false|
|00001770| 3b 0d 09 77 68 69 6c 65 | 20 28 6e 6f 74 20 6e 6f |;..while| (not no|
|00001780| 43 68 61 6e 67 65 73 29 | 0d 09 62 65 67 69 6e 0d |Changes)|..begin.|
|00001790| 09 09 6e 6f 43 68 61 6e | 67 65 73 20 3a 3d 20 74 |..noChan|ges := t|
|000017a0| 72 75 65 3b 0d 09 09 66 | 6f 72 20 69 20 3a 3d 20 |rue;...f|or i := |
|000017b0| 31 20 74 6f 20 28 28 63 | 61 72 64 20 74 68 65 4c |1 to ((c|ard theL|
|000017c0| 69 73 74 29 20 2d 20 31 | 29 0d 09 09 09 69 66 20 |ist) - 1|)....if |
|000017d0| 74 68 65 4c 69 73 74 5b | 69 5d 20 3e 20 74 68 65 |theList[|i] > the|
|000017e0| 4c 69 73 74 5b 69 2b 31 | 5d 0d 09 09 09 62 65 67 |List[i+1|]....beg|
|000017f0| 69 6e 0d 09 09 09 09 74 | 65 6d 70 4d 65 6d 62 65 |in.....t|empMembe|
|00001800| 72 20 3a 3d 20 74 68 65 | 4c 69 73 74 5b 69 5d 3b |r := the|List[i];|
|00001810| 0d 09 09 09 09 74 68 65 | 4c 69 73 74 20 3a 3d 20 |.....the|List := |
|00001820| 72 65 70 6c 61 63 65 28 | 20 74 68 65 4c 69 73 74 |replace(| theList|
|00001830| 5b 69 2b 31 5d 2c 20 69 | 2c 20 74 68 65 4c 69 73 |[i+1], i|, theLis|
|00001840| 74 20 29 3b 0d 09 09 09 | 09 74 68 65 4c 69 73 74 |t );....|.theList|
|00001850| 20 3a 3d 20 72 65 70 6c | 61 63 65 28 20 74 65 6d | := repl|ace( tem|
|00001860| 70 4d 65 6d 62 65 72 2c | 20 69 2b 31 2c 20 74 68 |pMember,| i+1, th|
|00001870| 65 4c 69 73 74 20 29 3b | 0d 09 09 09 09 6e 6f 43 |eList );|.....noC|
|00001880| 68 61 6e 67 65 73 20 3a | 3d 20 66 61 6c 73 65 3b |hanges :|= false;|
|00001890| 0d 09 09 09 65 6e 64 3b | 0d 09 65 6e 64 3b 0d 09 |....end;|..end;..|
|000018a0| 72 65 74 75 72 6e 20 74 | 68 65 4c 69 73 74 3b 0d |return t|heList;.|
|000018b0| 65 6e 64 3b 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |end;....|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 0f 37 | 00 00 0e 37 00 00 01 a9 |.......7|...7....|
|00001910| ff ff f3 f3 ff ff ff f3 | ff f3 ff c0 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 0f 44 61 74 61 55 74 69 | 6c 73 2e 76 75 6c 69 62 |.DataUti|ls.vulib|
|00001940| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 ff ff |....TEXT|MPS ....|
|00001950| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 a6 65 20 10 00 00 | 18 36 00 00 10 e0 00 00 |...e ...|.6......|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 0c cc cc | cc cc c0 c0 c0 c0 c0 00 |........|........|
|000019b0| 00 00 c0 c0 c0 c0 00 00 | c0 c0 0c c0 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | c0 cc cc cc cc c0 cc c0 |........|........|
|000019d0| cc cc cc cc cc c0 cc cc | cc cc cc cc cc cc cc cc |........|........|
|000019e0| ff fc cc cc cc cc cc cc | cc cc cc cc cf ff cc cc |........|........|
|000019f0| cc cc cc cc cc cc cc cc | cc cc cc cc cc cc cc cc |........|........|
|00001a00| 00 00 00 48 00 0c 43 6f | 75 72 69 65 72 00 69 6e |...H..Co|urier.in|
|00001a10| 0d 09 6e 65 77 53 74 72 | 69 6e 67 20 3a 3d 20 7b |..newStr|ing := {|
|00001a20| 7d 3b 0d 09 6e 75 00 07 | 00 04 00 2e 00 08 01 cb |};..nu..|........|
|00001a30| 02 70 00 2e 00 08 01 cb | 02 70 a6 ad 47 d0 00 00 |.p......|.p..G...|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 9c |........|........|
|00001a50| 00 09 00 00 02 fc 00 00 | 02 fc 03 41 62 73 00 00 |........|...Abs..|
|00001a60| 06 8d 00 00 06 8d 09 41 | 64 64 54 6f 4c 69 73 74 |.......A|ddToList|
|00001a70| 00 00 04 92 00 00 04 92 | 0d 43 6f 6e 63 61 74 53 |........|.ConcatS|
|00001a80| 74 72 69 6e 67 73 00 00 | 08 8a 00 00 08 8a 05 46 |trings..|.......F|
|00001a90| 69 72 73 74 00 00 0c 6c | 00 00 0c 6c 0b 49 73 53 |irst...l|...l.IsS|
|00001aa0| 75 62 73 74 72 69 6e 67 | 00 00 14 99 00 00 14 99 |ubstring|........|
|00001ab0| 09 4d 61 6b 65 41 73 73 | 6f 63 00 00 10 fd 00 00 |.MakeAss|oc......|
|00001ac0| 10 fd 09 50 6f 70 53 74 | 61 63 6b 00 00 00 0a 4a |...PopSt|ack....J|
|00001ad0| 00 00 0a 4a 05 52 65 73 | 74 00 00 00 16 bf 00 00 |...J.Res|t.......|
|00001ae0| 16 bf 09 53 6f 72 74 4c | 69 73 74 00 00 00 00 1e |...SortL|ist.....|
|00001af0| 00 2e 00 08 01 cb 02 70 | 00 2e 00 08 01 cb 02 70 |.......p|.......p|
|00001b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b10| 00 cc 00 c7 00 5b 00 00 | 00 00 00 0a 00 95 00 00 |.....[..|........|
|00001b20| 00 02 01 61 64 64 74 6f | 6c 69 73 74 00 00 00 95 |...addto|list....|
|00001b30| 00 00 00 02 01 61 62 73 | 00 00 00 95 00 00 00 02 |.....abs|........|
|00001b40| 01 70 75 73 68 73 74 61 | 63 6b 00 00 00 95 00 00 |.pushsta|ck......|
|00001b50| 00 02 01 73 6f 72 74 6c | 69 73 74 00 00 95 00 00 |...sortl|ist.....|
|00001b60| 00 02 01 69 73 73 75 62 | 73 74 72 69 6e 67 00 4f |...issub|string.O|
|00001b70| 00 95 00 00 00 02 01 66 | 69 72 73 74 00 00 00 95 |.......f|irst....|
|00001b80| 00 00 00 02 01 6d 61 6b | 65 61 73 73 6f 63 00 00 |.....mak|eassoc..|
|00001b90| 00 95 00 00 00 02 01 63 | 6f 6e 63 61 74 73 74 72 |.......c|oncatstr|
|00001ba0| 69 6e 67 73 00 40 00 95 | 00 00 00 02 01 70 6f 70 |ings.@..|.....pop|
|00001bb0| 73 74 61 63 6b 00 00 95 | 00 00 00 02 01 72 65 73 |stack...|.....res|
|00001bc0| 74 00 00 db 00 03 00 95 | 00 14 00 01 00 95 00 00 |t.......|........|
|00001bd0| 00 01 00 95 00 1b 00 01 | 00 e4 00 00 00 ff 00 00 |........|........|
|00001be0| 02 10 00 5d 00 5b 00 06 | 00 00 00 04 00 9b 00 00 |...].[..|........|
|00001bf0| 00 02 01 69 00 64 00 02 | 00 9b 00 00 00 02 01 74 |...i.d..|.......t|
|00001c00| 68 65 6c 69 73 74 00 73 | 00 00 00 9b 00 00 00 02 |helist.s|........|
|00001c10| 01 6e 6f 63 68 61 6e 67 | 65 73 00 00 00 01 00 9b |.nochang|es......|
|00001c20| 00 00 00 02 01 74 65 6d | 70 6d 65 6d 62 65 72 00 |.....tem|pmember.|
|00001c30| 00 03 00 00 00 ab ff ff | 00 9a 00 01 00 99 00 2b |........|.......+|
|00001c40| 00 00 00 08 00 ff 00 9b | 00 13 00 01 00 95 00 0d |........|........|
|00001c50| 00 01 00 03 00 05 00 ad | 00 ad 00 9b 00 19 00 01 |........|........|
|00001c60| 00 4b 00 00 00 04 00 23 | 00 62 00 ae 00 ae 00 6d |.K.....#|.b.....m|
|00001c70| 00 02 00 05 00 b0 00 b0 | 00 9b 00 19 00 01 00 4b |........|.......K|
|00001c80| 00 00 00 04 00 48 00 22 | 00 b1 00 b1 00 6f 00 01 |.....H."|.....o..|
|00001c90| 00 26 00 b2 00 b2 00 78 | 00 00 00 06 00 41 00 00 |.&.....x|.....A..|
|00001ca0| 00 0c 00 9b 00 13 00 01 | 00 9b 00 0c 00 01 00 41 |........|.......A|
|00001cb0| 00 00 00 0c 00 9b 00 13 | 00 01 00 04 00 00 00 03 |........|........|
|00001cc0| 00 2b 00 9b 00 0c 00 01 | 00 42 00 00 00 0a 00 01 |.+......|.B......|
|00001cd0| 00 5a 00 06 00 05 00 b4 | 00 b4 00 9b 00 1d 00 01 |.Z......|........|
|00001ce0| 00 41 00 00 00 0c 00 9b | 00 13 00 01 00 9b 00 0c |.A......|........|
|00001cf0| 00 01 00 b8 00 b5 00 b5 | 00 00 00 04 00 c4 00 00 |........|........|
|00001d00| 00 00 00 1f 00 03 00 41 | 00 00 00 0c 00 9b 00 13 |.......A|........|
|00001d10| 00 01 00 04 00 00 00 03 | 00 2b 00 9b 00 0c 00 01 |........|.+......|
|00001d20| 00 42 00 00 00 0a 00 01 | 00 9b 00 0c 00 01 00 9b |.B......|........|
|00001d30| 00 13 00 01 00 05 00 b5 | 00 b5 00 9b 00 13 00 01 |........|........|
|00001d40| 00 ac 00 00 00 11 00 00 | 00 04 00 b8 00 b6 00 b6 |........|........|
|00001d50| 00 00 00 05 00 c4 00 00 | 00 00 00 1f 00 03 00 9b |........|........|
|00001d60| 00 1d 00 01 00 04 00 00 | 00 03 00 2b 00 9b 00 0c |........|...+....|
|00001d70| 00 01 00 42 00 00 00 0a | 00 01 00 9b 00 13 00 01 |...B....|........|
|00001d80| 00 05 00 b6 00 b6 00 9b | 00 13 00 01 00 ac 00 00 |........|........|
|00001d90| 00 11 00 00 00 05 00 05 | 00 b7 00 b7 00 9b 00 19 |........|........|
|00001da0| 00 01 00 4b 00 00 00 04 | 00 23 00 9b 00 0c 00 01 |...K....|.#......|
|00001db0| 00 42 00 00 00 0a 00 01 | 00 04 00 01 00 03 00 2d |.B......|.......-|
|00001dc0| 00 0b 00 01 00 0d 00 9b | 00 13 00 01 00 42 00 00 |........|.....B..|
|00001dd0| 00 0a 00 01 00 ff 00 01 | 00 7d 00 01 00 05 00 9b |........|.}......|
|00001de0| 00 19 00 01 00 ff 00 ab | 00 ba 00 ba 00 9b 00 13 |........|........|
|00001df0| 00 01 00 00 01 86 00 5d | 00 5b 00 06 00 00 00 05 |.......]|.[......|
|00001e00| 00 9b 00 00 00 02 01 64 | 61 74 61 6c 69 73 74 00 |.......d|atalist.|
|00001e10| 00 01 00 9b 00 00 00 02 | 01 6c 69 73 74 73 69 7a |........|.listsiz|
|00001e20| 65 00 00 02 00 9b 00 00 | 00 02 01 69 00 73 00 04 |e.......|...i.s..|
|00001e30| 00 9b 00 00 00 02 01 6f | 62 6a 65 63 74 6c 69 73 |.......o|bjectlis|
|00001e40| 74 00 00 00 00 9b 00 00 | 00 02 01 61 73 73 6f 63 |t.......|...assoc|
|00001e50| 6c 69 73 74 00 00 00 03 | 00 00 00 99 ff ff 00 9a |list....|........|
|00001e60| 00 02 00 99 00 2b 00 00 | 00 08 00 ff 00 9b 00 11 |.....+..|........|
|00001e70| 00 01 00 99 00 2b 00 00 | 00 08 00 ff 00 9b 00 01 |.....+..|........|
|00001e80| 00 01 00 95 00 16 00 01 | 00 01 00 7e 00 9b 00 9b |........|...~....|
|00001e90| 00 75 00 01 00 06 00 0b | 00 01 00 0d 00 9b 00 11 |.u......|........|
|00001ea0| 00 01 00 0b 00 01 00 0d | 00 9b 00 01 00 01 00 5a |........|.......Z|
|00001eb0| 00 04 00 05 00 9d 00 9d | 00 9b 00 03 00 01 00 0b |........|........|
|00001ec0| 00 00 00 0d 00 9b 00 11 | 00 01 00 05 00 9e 00 9e |........|........|
|00001ed0| 00 9b 00 19 00 01 00 2b | 00 00 00 08 00 ff 00 22 |.......+|......."|
|00001ee0| 00 9f 00 9f 00 6f 00 02 | 00 ad 00 a0 00 a0 00 1f |.....o..|........|
|00001ef0| 00 02 00 2b 00 00 00 08 | 00 1f 00 02 00 41 00 00 |...+....|.....A..|
|00001f00| 00 0c 00 9b 00 11 00 01 | 00 9b 00 0c 00 01 00 41 |........|.......A|
|00001f10| 00 00 00 0c 00 9b 00 01 | 00 01 00 9b 00 0c 00 01 |........|........|
|00001f20| 00 9b 00 19 00 01 00 95 | 00 00 00 01 00 ff 00 00 |........|........|
|00001f30| 00 05 00 05 00 a0 00 a0 | 00 9b 00 19 00 01 00 ac |........|........|
|00001f40| 00 00 00 11 00 00 00 05 | 00 9b 00 0c 00 01 00 42 |........|.......B|
|00001f50| 00 00 00 0a 00 01 00 9b | 00 03 00 01 00 ff 00 ab |........|........|
|00001f60| 00 a1 00 a1 00 9b 00 19 | 00 01 00 5a 00 01 00 ab |........|...Z....|
|00001f70| 00 a4 00 a4 00 4b 00 00 | 00 04 00 49 00 00 00 9e |.....K..|...I....|
|00001f80| 00 5d 00 5b 00 03 00 00 | 00 02 00 9b 00 00 00 02 |.].[....|........|
|00001f90| 01 74 68 65 65 6c 65 6d | 65 6e 74 00 00 00 00 9b |.theelem|ent.....|
|00001fa0| 00 00 00 02 01 74 68 65 | 73 74 61 63 6b 00 00 01 |.....the|stack...|
|00001fb0| 00 00 00 8f ff ff 00 9a | 00 02 00 99 00 48 00 00 |........|.....H..|
|00001fc0| 00 07 00 22 00 00 00 9b | 00 05 00 01 00 99 00 2b |..."....|.......+|
|00001fd0| 00 00 00 08 00 ff 00 9b | 00 0e 00 01 00 95 00 0c |........|........|
|00001fe0| 00 01 00 02 00 ad 00 91 | 00 91 00 1f 00 03 00 9b |........|........|
|00001ff0| 00 05 00 01 00 9b 00 0e | 00 01 00 4b 00 00 00 04 |........|...K....|
|00002000| 00 48 00 95 00 00 00 01 | 00 ff 00 00 00 02 00 ab |.H......|........|
|00002010| 00 91 00 91 00 ac 00 00 | 00 11 00 00 00 02 00 00 |........|........|
|00002020| 01 24 00 5d 00 5b 00 06 | 00 00 00 02 00 9b 00 00 |.$.].[..|........|
|00002030| 00 02 01 74 68 65 73 74 | 61 63 6b 00 00 00 00 9b |...thest|ack.....|
|00002040| 00 00 00 02 01 74 77 6f | 69 74 65 6d 6c 69 73 74 |.....two|itemlist|
|00002050| 00 01 00 01 00 00 00 82 | ff ff 00 9a 00 01 00 99 |........|........|
|00002060| 00 2b 00 00 00 08 00 ff | 00 9b 00 0e 00 01 00 95 |.+......|........|
|00002070| 00 1a 00 02 00 08 00 05 | 00 84 00 84 00 9b 00 15 |........|........|
|00002080| 00 01 00 2b 00 00 00 08 | 00 ff 00 ad 00 85 00 85 |...+....|........|
|00002090| 00 1f 00 01 00 9b 00 0e | 00 01 00 95 00 14 00 01 |........|........|
|000020a0| 00 ff 00 00 00 02 00 ad | 00 85 00 85 00 1f 00 02 |........|........|
|000020b0| 00 ac 00 00 00 11 00 00 | 00 02 00 9b 00 15 00 01 |........|........|
|000020c0| 00 95 00 00 00 01 00 ff | 00 00 00 03 00 05 00 85 |........|........|
|000020d0| 00 85 00 9b 00 15 00 01 | 00 ac 00 00 00 11 00 00 |........|........|
|000020e0| 00 03 00 ad 00 86 00 86 | 00 1f 00 01 00 9b 00 0e |........|........|
|000020f0| 00 01 00 95 00 1b 00 01 | 00 ff 00 00 00 04 00 ad |........|........|
|00002100| 00 86 00 86 00 1f 00 02 | 00 ac 00 00 00 11 00 00 |........|........|
|00002110| 00 04 00 9b 00 15 00 01 | 00 95 00 00 00 01 00 ff |........|........|
|00002120| 00 00 00 05 00 05 00 86 | 00 86 00 9b 00 15 00 01 |........|........|
|00002130| 00 ac 00 00 00 11 00 00 | 00 05 00 ab 00 87 00 87 |........|........|
|00002140| 00 9b 00 15 00 01 00 00 | 02 e6 00 5d 00 5b 00 07 |........|...].[..|
|00002150| 00 00 00 07 00 9b 00 00 | 00 02 01 74 68 65 73 74 |........|...thest|
|00002160| 72 69 6e 67 00 00 00 01 | 00 9b 00 00 00 02 01 6d |ring....|.......m|
|00002170| 61 69 6e 63 6f 75 6e 74 | 65 72 00 01 00 04 00 9b |aincount|er......|
|00002180| 00 00 00 02 01 74 65 6d | 70 63 6f 75 6e 74 65 72 |.....tem|pcounter|
|00002190| 00 9b 00 06 00 9b 00 00 | 00 02 01 6d 61 69 6e 6c |........|...mainl|
|000021a0| 65 6e 67 74 68 00 00 03 | 00 9b 00 00 00 02 01 73 |ength...|.......s|
|000021b0| 75 62 63 6f 75 6e 74 65 | 72 00 00 05 00 9b 00 00 |ubcounte|r.......|
|000021c0| 00 02 01 74 68 65 73 75 | 62 73 74 72 69 6e 67 00 |...thesu|bstring.|
|000021d0| 00 00 00 9b 00 00 00 02 | 01 73 75 62 6c 65 6e 67 |........|.subleng|
|000021e0| 74 68 00 9b 00 02 00 00 | 00 5c ff ff 00 9a 00 02 |th......|.\......|
|000021f0| 00 99 00 48 00 00 00 07 | 00 22 00 00 00 9b 00 12 |...H....|."......|
|00002200| 00 01 00 99 00 48 00 00 | 00 07 00 22 00 00 00 9b |.....H..|..."....|
|00002210| 00 03 00 01 00 95 00 11 | 00 01 00 04 00 05 00 5e |........|.......^|
|00002220| 00 5e 00 9b 00 15 00 01 | 00 0b 00 00 00 0d 00 9b |.^......|........|
|00002230| 00 12 00 01 00 05 00 5f | 00 5f 00 9b 00 0b 00 01 |......._|._......|
|00002240| 00 0b 00 00 00 0d 00 9b | 00 03 00 01 00 7e 00 60 |........|.....~.`|
|00002250| 00 60 00 78 00 01 00 06 | 00 9b 00 15 00 01 00 9b |.`.x....|........|
|00002260| 00 0b 00 01 00 5a 00 01 | 00 ab 00 61 00 61 00 4b |.....Z..|...a.a.K|
|00002270| 00 00 00 04 00 23 00 5a | 00 01 00 7e 00 62 00 62 |.....#.Z|...~.b.b|
|00002280| 00 75 00 01 00 06 00 9b | 00 15 00 01 00 9b 00 0b |.u......|........|
|00002290| 00 01 00 5a 00 01 00 7e | 00 63 00 63 00 75 00 01 |...Z...~|.c.c.u..|
|000022a0| 00 06 00 9b 00 12 00 01 | 00 9b 00 03 00 01 00 5a |........|.......Z|
|000022b0| 00 01 00 ab 00 64 00 64 | 00 42 00 00 00 0a 00 01 |.....d.d|.B......|
|000022c0| 00 5a 00 01 00 ab 00 66 | 00 66 00 4b 00 00 00 04 |.Z.....f|.f.K....|
|000022d0| 00 23 00 5a 00 01 00 22 | 00 68 00 68 00 6f 00 03 |.#.Z..."|.h.h.o..|
|000022e0| 00 05 00 6a 00 6a 00 9b | 00 10 00 01 00 42 00 00 |...j.j..|.....B..|
|000022f0| 00 0a 00 01 00 05 00 6b | 00 6b 00 9b 00 0a 00 01 |.......k|.k......|
|00002300| 00 9b 00 07 00 01 00 26 | 00 6c 00 6c 00 75 00 00 |.......&|.l.l.u..|
|00002310| 00 06 00 41 00 00 00 0c | 00 9b 00 03 00 01 00 9b |...A....|........|
|00002320| 00 0a 00 01 00 41 00 00 | 00 0c 00 9b 00 12 00 01 |.....A..|........|
|00002330| 00 9b 00 10 00 01 00 5a | 00 02 00 62 00 6e 00 6e |.......Z|...b.n.n|
|00002340| 00 6d 00 02 00 05 00 70 | 00 70 00 9b 00 10 00 01 |.m.....p|.p......|
|00002350| 00 04 00 00 00 03 00 2b | 00 9b 00 10 00 01 00 42 |.......+|.......B|
|00002360| 00 00 00 0a 00 01 00 05 | 00 71 00 71 00 9b 00 0a |........|.q.q....|
|00002370| 00 01 00 04 00 00 00 03 | 00 2b 00 9b 00 0a 00 01 |........|.+......|
|00002380| 00 42 00 00 00 0a 00 01 | 00 01 00 75 00 00 00 06 |.B......|...u....|
|00002390| 00 41 00 00 00 0c 00 9b | 00 03 00 01 00 9b 00 0a |.A......|........|
|000023a0| 00 01 00 41 00 00 00 0c | 00 9b 00 12 00 01 00 9b |...A....|........|
|000023b0| 00 10 00 01 00 ff 00 26 | 00 73 00 73 00 75 00 01 |.......&|.s.s.u..|
|000023c0| 00 06 00 9b 00 10 00 01 | 00 04 00 00 00 03 00 2b |........|.......+|
|000023d0| 00 9b 00 15 00 01 00 42 | 00 00 00 0a 00 01 00 5a |.......B|.......Z|
|000023e0| 00 01 00 ab 00 74 00 74 | 00 9b 00 07 00 01 00 9b |.....t.t|........|
|000023f0| 00 07 00 01 00 42 00 00 | 00 0a 00 01 00 04 00 01 |.....B..|........|
|00002400| 00 03 00 2d 00 9b 00 0b | 00 01 00 04 00 01 00 03 |...-....|........|
|00002410| 00 2d 00 9b 00 15 00 01 | 00 42 00 00 00 0a 00 01 |.-......|.B......|
|00002420| 00 ff 00 ab 00 77 00 77 | 00 4b 00 00 00 04 00 23 |.....w.w|.K.....#|
|00002430| 00 00 00 a0 00 5d 00 5b | 00 02 00 00 00 01 00 9b |.....].[|........|
|00002440| 00 00 00 02 01 74 68 65 | 6c 69 73 74 00 67 00 00 |.....the|list.g..|
|00002450| 00 00 00 4e ff ff 00 9a | 00 01 00 99 00 ff 00 9b |...N....|........|
|00002460| 00 13 00 01 00 95 00 1b | 00 01 00 01 00 7e 00 50 |........|.....~.P|
|00002470| 00 50 00 78 00 01 00 06 | 00 0b 00 01 00 0d 00 9b |.P.x....|........|
|00002480| 00 13 00 01 00 42 00 00 | 00 0a 00 01 00 5a 00 02 |.....B..|.....Z..|
|00002490| 00 b8 00 51 00 51 00 00 | 00 01 00 e0 00 00 00 00 |...Q.Q..|........|
|000024a0| 00 1f 00 02 00 42 00 00 | 00 0a 00 01 00 9b 00 13 |.....B..|........|
|000024b0| 00 01 00 ab 00 51 00 51 | 00 ac 00 00 00 11 00 00 |.....Q.Q|........|
|000024c0| 00 01 00 5a 00 01 00 ab | 00 53 00 53 00 4b 00 00 |...Z....|.S.S.K..|
|000024d0| 00 04 00 49 00 00 00 88 | 00 5d 00 5b 00 01 00 00 |...I....|.].[....|
|000024e0| 00 01 00 9b 00 00 00 02 | 01 74 68 65 6c 69 73 74 |........|.thelist|
|000024f0| 00 67 00 00 00 00 00 41 | ff ff 00 9a 00 01 00 99 |.g.....A|........|
|00002500| 00 ff 00 9b 00 13 00 01 | 00 95 00 14 00 01 00 01 |........|........|
|00002510| 00 7e 00 43 00 43 00 78 | 00 01 00 06 00 0b 00 01 |.~.C.C.x|........|
|00002520| 00 0d 00 9b 00 13 00 01 | 00 42 00 00 00 0a 00 00 |........|.B......|
|00002530| 00 5a 00 01 00 ab 00 44 | 00 44 00 41 00 00 00 0c |.Z.....D|.D.A....|
|00002540| 00 9b 00 13 00 01 00 42 | 00 00 00 0a 00 01 00 5a |.......B|.......Z|
|00002550| 00 01 00 ab 00 46 00 46 | 00 4b 00 00 00 04 00 49 |.....F.F|.K.....I|
|00002560| 00 00 01 1e 00 5d 00 5b | 00 05 00 00 00 03 00 9b |.....].[|........|
|00002570| 00 00 00 02 01 74 68 65 | 65 6c 65 6d 65 6e 74 00 |.....the|element.|
|00002580| 00 00 00 9b 00 00 00 02 | 01 74 6f 66 72 6f 6e 74 |........|.tofront|
|00002590| 00 13 00 02 00 9b 00 00 | 00 02 01 74 68 65 6c 69 |........|...theli|
|000025a0| 73 74 00 78 00 01 00 00 | 00 34 ff ff 00 9a 00 03 |st.x....|.4......|
|000025b0| 00 99 00 48 00 00 00 07 | 00 22 00 00 00 9b 00 05 |...H....|."......|
|000025c0| 00 01 00 99 00 2b 00 00 | 00 08 00 ff 00 9b 00 13 |.....+..|........|
|000025d0| 00 01 00 99 00 4b 00 00 | 00 04 00 23 00 9b 00 11 |.....K..|...#....|
|000025e0| 00 01 00 95 00 00 00 01 | 00 01 00 7e 00 36 00 36 |........|...~.6.6|
|000025f0| 00 9b 00 11 00 01 00 5a | 00 02 00 b8 00 37 00 37 |.......Z|.....7.7|
|00002600| 00 00 00 03 00 c3 00 00 | 00 00 00 1f 00 03 00 9b |........|........|
|00002610| 00 05 00 01 00 42 00 00 | 00 0a 00 01 00 9b 00 13 |.....B..|........|
|00002620| 00 01 00 ab 00 37 00 37 | 00 ac 00 00 00 11 00 00 |.....7.7|........|
|00002630| 00 03 00 5a 00 02 00 b8 | 00 39 00 39 00 00 00 04 |...Z....|.9.9....|
|00002640| 00 c3 00 00 00 00 00 1f | 00 03 00 9b 00 05 00 01 |........|........|
|00002650| 00 04 00 01 00 03 00 2b | 00 0b 00 01 00 0d 00 9b |.......+|........|
|00002660| 00 13 00 01 00 42 00 00 | 00 0a 00 01 00 9b 00 13 |.....B..|........|
|00002670| 00 01 00 ab 00 39 00 39 | 00 ac 00 00 00 11 00 00 |.....9.9|........|
|00002680| 00 04 00 00 00 fe 00 5d | 00 5b 00 04 00 00 00 04 |.......]|.[......|
|00002690| 00 9b 00 00 00 02 01 69 | 00 65 00 03 00 9b 00 00 |.......i|.e......|
|000026a0| 00 02 01 73 74 72 69 6e | 67 6c 69 73 74 00 00 00 |...strin|glist...|
|000026b0| 00 9b 00 00 00 02 01 6e | 65 77 73 74 72 69 6e 67 |.......n|ewstring|
|000026c0| 00 69 00 01 00 9b 00 00 | 00 02 01 6e 75 6d 62 65 |.i......|...numbe|
|000026d0| 72 73 74 72 69 6e 67 73 | 00 07 00 02 00 00 00 26 |rstrings|.......&|
|000026e0| ff ff 00 9a 00 01 00 99 | 00 2b 00 00 00 08 00 ff |........|.+......|
|000026f0| 00 9b 00 10 00 01 00 95 | 00 1a 00 01 00 04 00 05 |........|........|
|00002700| 00 28 00 28 00 9b 00 14 | 00 01 00 48 00 00 00 07 |.(.(....|...H....|
|00002710| 00 22 00 00 00 05 00 29 | 00 29 00 9b 00 1b 00 01 |.".....)|.)......|
|00002720| 00 0b 00 00 00 0d 00 9b | 00 10 00 01 00 22 00 2a |........|.....".*|
|00002730| 00 2a 00 6f 00 01 00 05 | 00 2b 00 2b 00 9b 00 14 |.*.o....|.+.+....|
|00002740| 00 01 00 04 00 00 00 03 | 00 2b 00 9b 00 14 00 01 |........|.+......|
|00002750| 00 41 00 00 00 0c 00 9b | 00 10 00 01 00 9b 00 0c |.A......|........|
|00002760| 00 01 00 9b 00 0c 00 01 | 00 42 00 00 00 0a 00 01 |........|.B......|
|00002770| 00 9b 00 1b 00 01 00 ff | 00 ab 00 2c 00 2c 00 9b |........|...,.,..|
|00002780| 00 14 00 01 00 00 00 80 | 00 5d 00 5b 00 01 00 00 |........|.].[....|
|00002790| 00 01 00 9b 00 00 00 02 | 01 6e 75 6d 62 65 72 00 |........|.number.|
|000027a0| 00 00 00 00 00 19 ff ff | 00 9a 00 01 00 99 00 42 |........|.......B|
|000027b0| 00 00 00 0a 00 00 00 9b | 00 08 00 01 00 95 00 0a |........|........|
|000027c0| 00 01 00 01 00 7e 00 1b | 00 1b 00 77 00 01 00 06 |.....~..|...w....|
|000027d0| 00 9b 00 08 00 01 00 42 | 00 00 00 0a 00 00 00 5a |.......B|.......Z|
|000027e0| 00 01 00 ab 00 1c 00 1c | 00 04 00 00 00 03 00 2d |........|.......-|
|000027f0| 00 9b 00 08 00 01 00 ff | 00 5a 00 01 00 ab 00 1e |........|.Z......|
|00002800| 00 1e 00 9b 00 08 00 01 | 00 00 00 08 30 30 31 44 |........|....001D|
|00002810| a7 4e 25 0d 00 00 00 1f | 02 01 80 00 00 00 05 32 |.N%.....|.......2|
|00002820| 2e 30 2e 31 12 56 69 72 | 74 75 61 6c 20 55 73 65 |.0.1.Vir|tual Use|
|00002830| 72 20 32 2e 30 2e 31 00 | 00 01 00 00 00 0f 37 00 |r 2.0.1.|......7.|
|00002840| 00 0e 37 00 00 01 a9 00 | 3b 72 f0 10 e6 00 00 00 |..7.....|;r......|
|00002850| 1c 01 06 00 04 4d 50 53 | 52 00 02 00 2a 56 55 73 |.....MPS|R...*VUs|
|00002860| 63 00 00 00 4e 56 55 74 | 6b 00 09 00 5a 56 55 62 |c...NVUt|k...ZVUb|
|00002870| 6b 00 00 00 d2 76 65 72 | 73 00 00 00 de 03 ed ff |k....ver|s.......|
|00002880| ff 00 00 00 00 00 00 00 | 00 03 ef ff ff 00 00 00 |........|........|
|00002890| 4c 00 00 00 00 03 f0 ff | ff 00 00 00 ec 00 00 00 |L.......|........|
|000028a0| 00 00 80 00 00 00 00 01 | 0e 00 00 00 00 00 80 00 |........|........|
|000028b0| 0c 00 00 01 de 00 00 00 | 00 00 81 00 1a 00 00 03 |........|........|
|000028c0| f2 00 00 00 00 00 82 00 | 29 00 00 05 7c 00 00 00 |........|)...|...|
|000028d0| 00 00 83 00 38 00 00 06 | 1e 00 00 00 00 00 84 00 |....8...|........|
|000028e0| 46 00 00 07 46 00 00 00 | 00 00 85 00 57 00 00 0a |F...F...|....W...|
|000028f0| 30 00 00 00 00 00 86 00 | 61 00 00 0a d4 00 00 00 |0.......|a.......|
|00002900| 00 00 87 00 6c 00 00 0b | 60 00 00 00 00 00 88 00 |....l...|`.......|
|00002910| 7b 00 00 0c 82 00 00 00 | 00 00 89 00 8e 00 00 0d |{.......|........|
|00002920| 84 00 00 00 00 00 80 00 | 97 00 00 0e 08 00 00 00 |........|........|
|00002930| 00 00 02 ff ff 20 00 0e | 14 00 3b 7a b0 0b 54 68 |..... ..|..;z..Th|
|00002940| 65 20 4c 69 62 72 61 72 | 79 0d 54 61 73 6b 20 73 |e Librar|y.Task s|
|00002950| 6f 72 74 6c 69 73 74 0e | 54 61 73 6b 20 6d 61 6b |ortlist.|Task mak|
|00002960| 65 61 73 73 6f 63 0e 54 | 61 73 6b 20 70 75 73 68 |eassoc.T|ask push|
|00002970| 73 74 61 63 6b 0d 54 61 | 73 6b 20 70 6f 70 73 74 |stack.Ta|sk popst|
|00002980| 61 63 6b 10 54 61 73 6b | 20 69 73 73 75 62 73 74 |ack.Task| issubst|
|00002990| 72 69 6e 67 09 54 61 73 | 6b 20 72 65 73 74 0a 54 |ring.Tas|k rest.T|
|000029a0| 61 73 6b 20 66 69 72 73 | 74 0e 54 61 73 6b 20 61 |ask firs|t.Task a|
|000029b0| 64 64 74 6f 6c 69 73 74 | 12 54 61 73 6b 20 63 6f |ddtolist|.Task co|
|000029c0| 6e 63 61 74 73 74 72 69 | 6e 67 73 08 54 61 73 6b |ncatstri|ngs.Task|
|000029d0| 20 61 62 73 0b 42 6f 6f | 6b 6b 65 65 70 69 6e 67 | abs.Boo|kkeeping|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+